object frmConvRhema: TfrmConvRhema
  Left = 192
  Top = 106
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Conversor'
  ClientHeight = 108
  ClientWidth = 366
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = [fsBold]
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label2: TLabel
    Left = 4
    Top = 4
    Width = 179
    Height = 13
    Caption = 'Caminho p/ o Banco de Dados:'
  end
  object pb: TGauge
    Left = 4
    Top = 76
    Width = 357
    Height = 25
    Progress = 0
  end
  object edCaminho: TFilenameEdit
    Left = 4
    Top = 20
    Width = 357
    Height = 21
    InitialDir = 'C;'
    NumGlyphs = 1
    TabOrder = 0
  end
  object BitBtn1: TBitBtn
    Left = 4
    Top = 44
    Width = 121
    Height = 25
    Caption = '&OK'
    TabOrder = 1
    OnClick = BitBtn1Click
    Kind = bkOK
  end
  object BitBtn2: TBitBtn
    Left = 240
    Top = 44
    Width = 121
    Height = 25
    TabOrder = 2
    Kind = bkCancel
  end
  object edCNPJ: TMaskEdit
    Left = 408
    Top = 16
    Width = 121
    Height = 21
    EditMask = '99.999.999/9999-99;0; '
    MaxLength = 18
    TabOrder = 3
    Visible = False
  end
  object edCPF: TMaskEdit
    Left = 408
    Top = 44
    Width = 121
    Height = 21
    EditMask = '999.999.999-99;0; '
    MaxLength = 14
    TabOrder = 4
    Visible = False
  end
  object DB: TIBDatabase
    Params.Strings = (
      'user_name=SYSDBA'
      'password=masterkey')
    LoginPrompt = False
    DefaultTransaction = IBTransaction1
    IdleTimer = 0
    SQLDialect = 3
    TraceFlags = []
    Left = 20
    Top = 124
  end
  object tq: TIBQuery
    Database = DB
    Transaction = IBTransaction1
    CachedUpdates = False
    SQL.Strings = (
      'select * from CLIENTE'
      'order by CODIGO')
    Left = 24
    Top = 176
    object tqCODIGO: TIntegerField
      FieldName = 'CODIGO'
      Required = True
    end
    object tqFANTASIA: TIBStringField
      FieldName = 'FANTASIA'
      Size = 50
    end
    object tqENDERECO: TIBStringField
      FieldName = 'ENDERECO'
      Size = 40
    end
    object tqBAIRRO: TIBStringField
      FieldName = 'BAIRRO'
    end
    object tqCIDADE: TIBStringField
      FieldName = 'CIDADE'
      Size = 30
    end
    object tqESTADO: TIBStringField
      FieldName = 'ESTADO'
      Size = 2
    end
    object tqCXPOSTAL: TIBStringField
      FieldName = 'CXPOSTAL'
      Size = 5
    end
    object tqCOMPRADOR: TIBStringField
      FieldName = 'COMPRADOR'
    end
    object tqREPRESENTANTE: TIntegerField
      FieldName = 'REPRESENTANTE'
    end
    object tqME: TIBStringField
      FieldName = 'ME'
      Size = 1
    end
    object tqSUFRAMA: TIBStringField
      FieldName = 'SUFRAMA'
      Size = 15
    end
    object tqPAGCONTATO: TIBStringField
      FieldName = 'PAGCONTATO'
    end
    object tqINSCRSUB: TIBStringField
      FieldName = 'INSCRSUB'
      Size = 18
    end
    object tqPGTOENDERECO: TIBStringField
      FieldName = 'PGTOENDERECO'
      Size = 40
    end
    object tqPGTOCID: TIBStringField
      FieldName = 'PGTOCID'
      Size = 30
    end
    object tqPGTOESTADO: TIBStringField
      FieldName = 'PGTOESTADO'
      Size = 2
    end
    object tqLIMITECREDITO: TFloatField
      FieldName = 'LIMITECREDITO'
    end
    object tqENTREGAENDERECO: TIBStringField
      FieldName = 'ENTREGAENDERECO'
      Size = 50
    end
    object tqENTREGACIDADE: TIBStringField
      FieldName = 'ENTREGACIDADE'
      Size = 30
    end
    object tqENTREGAESTADO: TIBStringField
      FieldName = 'ENTREGAESTADO'
      Size = 2
    end
    object tqCEP: TIBStringField
      FieldName = 'CEP'
      Size = 10
    end
    object tqPGTOCEP: TIBStringField
      FieldName = 'PGTOCEP'
      Size = 10
    end
    object tqENTREGACEP: TIBStringField
      FieldName = 'ENTREGACEP'
      Size = 10
    end
    object tqBLOQUEIO: TIntegerField
      FieldName = 'BLOQUEIO'
    end
    object tqRG_INSCREST: TIBStringField
      FieldName = 'RG_INSCREST'
      Size = 18
    end
    object tqCPF_CNPJ: TIBStringField
      FieldName = 'CPF_CNPJ'
      Size = 18
    end
    object tqNOME_RAZAO: TIBStringField
      FieldName = 'NOME_RAZAO'
      Size = 50
    end
    object tqTIPOPESSOA: TIBStringField
      FieldName = 'TIPOPESSOA'
      Required = True
      Size = 1
    end
    object tqFONE: TIBStringField
      FieldName = 'FONE'
      Size = 16
    end
    object tqFAX: TIBStringField
      FieldName = 'FAX'
      Size = 16
    end
    object tqPAGCONTATOFONE: TIBStringField
      FieldName = 'PAGCONTATOFONE'
      Size = 16
    end
    object tqCARTEIRA: TIntegerField
      FieldName = 'CARTEIRA'
    end
    object tqDTCADASTRO: TDateField
      FieldName = 'DTCADASTRO'
    end
  end
  object IBTransaction1: TIBTransaction
    Active = False
    DefaultDatabase = DB
    Left = 48
    Top = 124
  end
  object DataSource1: TDataSource
    DataSet = tq
    Left = 204
    Top = 148
  end
  object qr: TIBQuery
    Database = DB
    Transaction = IBTransaction1
    CachedUpdates = False
    SQL.Strings = (
      'select count(*) Tot from CLIENTE'
      '')
    Left = 172
    Top = 260
    object qrTOT: TIntegerField
      FieldName = 'TOT'
    end
  end
end
